home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / globals.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-01-30  |  8.3 KB  |  240 lines
  1. /*
  2.     GWAda Development Environment for 386/486 PCs   
  3.     Copyright (C) 1993, Arthur Vargas Lopes  & Michael Bliss Feldman
  4.                         vlopes@vortex.ufrgs.br mfeldman@seas.gwu.edu
  5.  
  6.     This program is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; version 2 of the License.    
  9.  
  10.  
  11.     This program is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with this program; if not, write to the Free Software
  18.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19. */
  20.  
  21. /* Globals.c */
  22.  
  23. #include <\gwada\env\ed.h>
  24.  
  25.  
  26. short ScreenAdr, PhyScrCols;
  27. char RetraceMode, Aline, Tline, CtrlAttr;
  28.  
  29.  
  30. /* Run time options */
  31. char avl_monitor_on = '\0';
  32. short avl_heap;
  33. short avl_pgm_stack;
  34. short avl_task_stack;
  35. short avl_scheduller;
  36. char  avl_trace_opts[6];
  37.  
  38. int avl_cur_source = 0;
  39. int avl_cur_tool = 0;
  40. int avl_cur_unit = 0;
  41. int avl_rows     = 0;
  42. int avl_size     = 0;
  43. int avl_ctrl_c = 0;
  44. char current_file_name[200];
  45. char do_not_realy_exit = 0;
  46. int    avl_open_error_file = 0;
  47. AVL_LINE_PTR avl_block_first_line2 = NULL;
  48. AVL_LINE_PTR avl_block_last_line2;
  49. int avl_block_first_col2;
  50. int avl_block_last_col2;
  51. AVL_LINE_PTR avl_block_first_line = NULL;
  52. AVL_LINE_PTR avl_block_last_line;
  53. int avl_block_first_col;
  54. int avl_block_last_col;
  55. AVL_EDIT_WINDOW avl_windows[AVL_MAX_WINDOWS+1];
  56. int avl_window = 0;
  57. int avl_nwindows = 0;
  58. int avl_hscroll_on = 0;
  59. int avl_tab_size = 8;
  60. AVL_LINE_PTR avl_line_temp = NULL;
  61. char avl_blank_line[81];
  62. char *avl_border = "┌┐└┘─│├┤";
  63. char avl_message[80];
  64. char avl_curr_directory[128];
  65. char avl_dir_sources[61];
  66. char avl_dir_library[61];
  67. char avl_find_txt[AVL_MAX_LINEL+10];
  68. char avl_replace_txt[AVL_MAX_LINEL+10];
  69. int avl_no_up_corner = 0;
  70. short avl_txt_color;
  71. short avl_txt_bk_color;
  72. short avl_wnd_color;
  73. short avl_wnd_title = AVL_WIND_TITLE;
  74. short avl_wnd_bk_color;
  75. short avl_que_color;
  76. short avl_que_bk_color;
  77. short avl_pro_color;
  78. short avl_pro_bk_color;
  79. short avl_men_ready;
  80. short avl_men_letter;
  81. short avl_men_word;
  82. short avl_men_bk_color;
  83. short avl_err_color;
  84. short avl_sta_color;
  85. short avl_sta_bk_color;
  86. short avl_msg_bk_color;
  87. short avl_msg_color;
  88.  
  89. AVL_EDIT_WINDOW_PTR avl_w;
  90. AVL_WIN_PTR avl_win1;
  91.  
  92. char avl_version_mark[30];
  93.  
  94. AVL_COLOR_CHOICES avl_cor_choices[AVL_NO_COLORS_OPTS] = {
  95.              {0,"Status             ",&avl_sta_color}
  96.             ,{1,"Status Background  ",&avl_sta_bk_color}
  97.             ,{0,"Editing Text       ",&avl_txt_color}
  98.             ,{1,"Editing Background ",&avl_txt_bk_color}
  99.             ,{0,"Window Title       ",&avl_wnd_title}
  100.             ,{0,"Window Text        ",&avl_wnd_color}
  101.             ,{1,"Window Background  ",&avl_wnd_bk_color}
  102.             ,{0,"Question Text      ",&avl_que_color}
  103.             ,{1,"Question Background",&avl_que_bk_color}
  104.             ,{0,"Prompt Text        ",&avl_pro_color}
  105.             ,{1,"Prompt Background  ",&avl_pro_bk_color}
  106.             ,{0,"Menu Selection     ",&avl_men_ready}
  107.             ,{0,"Menu Letter Option ",&avl_men_letter}
  108.             ,{0,"Menu Word          ",&avl_men_word}
  109.             ,{1,"Menu Background    ",&avl_men_bk_color}
  110.             ,{0,"Error Message      ",&avl_err_color}
  111.             ,{0,"Message Text       ",&avl_msg_color}
  112.             ,{1,"Message Background ",&avl_msg_bk_color}
  113.             };
  114.  
  115. int avl_cor_select = 0;
  116. int avl_cor_bk_sel = 0;
  117. int avl_cor_txt_sel = 0;
  118.  
  119. short avl_codes[157] = {  1,  2,  3,  4,  5,  6,  7,  8, 11, 12
  120.                      , 13, 14, 15, 16, 17, 18, 19, 20, 21, 22
  121.                      , 23, 24, 25, 26, 27, 28, 29, 30, 31,127
  122.                      ,128,129,130,131,132,133,134,135,136,137
  123.                      ,138,139,140,141,142,143,144,145,146,147
  124.                      ,148,149,150,151,152,153,154,155,156,157
  125.                      ,158,159,160,161,162,163,164,165,166,167
  126.                      ,168,169,170,171,172,173,174,175,176,177
  127.                      ,178,179,180,181,182,183,184,185,186,187
  128.                      ,188,189,190,191,192,193,194,195,196,197
  129.                      ,198,199,200,201,202,203,204,205,206,207
  130.                      ,208,209,210,211,212,213,214,215,216,217
  131.                      ,218,219,220,221,222,223,224,225,226,227
  132.                      ,228,229,230,231,232,233,234,235,236,237
  133.                      ,238,239,240,241,242,243,244,245,246,247
  134.                      ,248,249,250,251,252,253,254};
  135.  
  136. short avl_mat_code[8][40];
  137. short avl_codes_row = 0;
  138. short avl_codes_col = 0;
  139.  
  140.  
  141. int avl_cur_menu = 0;
  142.  
  143. int avl_cur_smenu[10] = {2, 0, 0, 0, 0, 0, 0, 0, 0, 0};
  144.  
  145.  
  146. AVL_WIN_PTR avl_env_win = NULL;
  147.  
  148. AVL_TIT avl_menu[AVL_MENU_ITEMS] = {
  149.                    {1, 3,"File"}
  150.                   ,{1, 9,"Edit"}
  151.                   ,{1,15,"Compile"}
  152.                   ,{1,24,"Bind"}
  153.                   ,{1,30,"Run"}
  154.                   ,{1,35,"Window"}
  155.                   ,{1,43,"Options"}
  156.                   ,{1,52,"Ada"}
  157.                   ,{1,57,"Help"}
  158.                   ,{1,63,avl_version_mark}
  159.                   }; 
  160.  
  161. int avl_start_pos = 0;
  162.  
  163. void AVL_HELP_LRM()
  164. {
  165.     char *opts[17];
  166.     int nopt = 0;
  167.     int cmd_ret_code;
  168.     opts[nopt++] = "AdaHelp";
  169.     opts[nopt++] = NULL;
  170. /*    if (AVL_EX_UNIT("ADAHELP", opts))  ;
  171. */
  172.     system("adahelp");
  173. }
  174.  
  175. void AVL_DO_WINDOW();
  176.     
  177. AVL_STIT avl_smenu[9]  =  { /* File */
  178.                            {1, 2,{{1,"Open   ",AVL_OPEN}
  179.                                  ,{1,"Close  ",AVL_CLOSE}
  180.                                  ,{0,"Save   ",AVL_SAVE}
  181.                                  ,{0,"Save As",AVL_SAVE_AS}
  182.                                  ,{0,"Info   ",AVL_ABOUT_GWADA}
  183.                                  ,{0,"DOS Cmd",AVL_DOS_CMD}
  184.                                  ,{0,"Quit  ",AVL_EXIT}
  185.                                  ,{0,"",NULL}}}
  186.                           ,{1, 8,{{1,"Find        ",AVL_PROCESS_FIND}
  187.                                  ,{1,"Replace     ",AVL_PROCESS_REPLACE}
  188.                                  ,{1,"Insert File ",AVL_READ_IN}
  189.                                  ,{1,"Delete Line ",AVL_DO_DEL_LINE}
  190.                                  ,{1,"Special Code",AVL_INSERT_CODES}
  191.                                  ,{1,"Mark Block  ",AVL_GUIDE_MBLOCK}
  192. /*                                 ,{1,"Remove Block",AVL_REMOVE_BLOCK}
  193. */                                 ,{1,"Write Block ",AVL_WRITE_OUT}
  194.                                  ,{1,"Copy Block ",AVL_PROCESS_COPY}
  195.                                  ,{0,"", NULL}}}
  196.                           ,{1,14,{{0,"Current Unit",AVL_COMPILE_CURRENT} /* Compile */
  197. /*                                 ,{0,"Bottom Up",AVL_COMP_ORDER}  
  198. */                                 ,{0,"Select Unit",AVL_COMPILE} 
  199.                                  ,{0,"", NULL}}}
  200.                           ,{1,23,{{1,"",AVL_BIND}}}    /* Bind */
  201.                           ,{1,29,{{1,"",AVL_RUN}}} /* Run */
  202.                           ,{1,33,{{1,"",AVL_DO_WINDOW}}} /* Window */
  203.                           ,{1,42,{{0,"ASCII Table      ",AVL_SHOW_ASCII} /* Options */
  204.                                  ,{0,"Colors           ",AVL_SET_COLORS} 
  205.                                  ,{0,"Directories      ",AVL_SET_DIRECTORIES}
  206.                                  ,{0,"Identation Length",AVL_SET_TAB}
  207.                                  ,{0,"List Library     ",AVL_LIST_LIB}
  208.                                  ,{0,"New Library      ",AVL_NEW_LIB}
  209.                                  ,{0,"Parameters (Run) ",AVL_SET_PARAMETERS}
  210.                                  ,{0,"Read Options     ",AVL_READ_OPTIONS}
  211.                                  ,{0,"Set Defaults     ",AVL_DEFAULT_OPTIONS}
  212.                                  ,{0,"Write Options   ",AVL_SAVE_OPTIONS}
  213.                                  ,{0,"",NULL}}}
  214.                           ,{1,51,{  /*  Ada  */
  215.                                   {1,"Ada Program" ,AVL_TEMPLATE_ADA_PGM}
  216.                                  ,{1,"Access type" ,AVL_TEMPLATE_ADA_ACCESS}
  217.                                  ,{1,"Vector type" ,AVL_TEMPLATE_ADA_VECTOR}
  218.                                  ,{1,"Matrix type" ,AVL_TEMPLATE_ADA_MATRIX}
  219.                                  ,{1,"Record type" ,AVL_TEMPLATE_ADA_RECORD}
  220.                                  ,{1,"Loop       " ,AVL_TEMPLATE_ADA_LOOP}
  221.                                  ,{1,"While      " ,AVL_TEMPLATE_ADA_WHILE}
  222.                                  ,{1,"Case       " ,AVL_TEMPLATE_ADA_CASE}
  223.                                  ,{1,"If         " ,AVL_TEMPLATE_ADA_IF}
  224.                                  ,{1,"Function   " ,AVL_TEMPLATE_ADA_FUNCTION}
  225.                                  ,{1,"Procedure  " ,AVL_TEMPLATE_ADA_PROCEDURE}
  226.                                  ,{1,"Task       " ,AVL_TEMPLATE_ADA_TASK}
  227.                                  ,{1,"Server     " ,AVL_TEMPLATE_ADA_SERVER}
  228.                                  ,{1,"Package   " ,AVL_TEMPLATE_ADA_PACKAGE}
  229. /*                                 ,{1,"Tool Box  " ,AVL_CALL_TOOL}
  230. */                                 ,{0,"",NULL}}}
  231.                           ,{1,46,{  /*  Help  */
  232.                                   {0,"Help Facility",AVL_HELP_LRM}    
  233.                                  ,{0,"Fast Help ",AVL_HOT_KEYS}    
  234.                                  ,{0,"",NULL}}}
  235.                           };
  236.  
  237.  
  238.  
  239.  
  240.     
  241.